unit uCursors;

interface implementation

uses Windows, Forms;

var
  I: Word = 1;
  Cursors: array[1..3] of THandle;

procedure SetCursor(CursorName: string);
begin
  Cursors[I] := Windows.LoadImage(0, PChar(CursorName),
    IMAGE_CURSOR, 0, 0, LR_DEFAULTSIZE or LR_LOADFROMFILE);
  Screen.Cursors[I] := Cursors[I];  
  Inc(I);  
end;  

initialization
  SetCursor('Default.cur');
  SetCursor('Attack.cur');
  SetCursor('Sellect.cur');
  
  Screen.Cursor := 1;  

finalization

end.

